(rmail-spool-directory): On SCO 3.2v4, use /usr/spool/mail.

diff --git a/lisp/paths.el b/lisp/paths.el
index 3a285f55734ef4a06b21628766ca534d328aefa8..f4748f969211811c794279c9603414d47c3f1695 100644 (file)
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -88,7 +88,9 @@ Will use `gnus-startup-file'-SERVER instead if exists.")
   "Name of user's primary mail file.")
 
 (defconst rmail-spool-directory
-  (cond ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
+  (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)
+        "/usr/spool/mail/")
+       ((memq system-type '(dgux hpux usg-unix-v unisoft-unix rtu irix))
         "/usr/mail/")
        ((eq system-type 'netbsd)
         "/var/mail/")